home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / drip.src < prev    next >
Text File  |  1991-10-19  |  2KB  |  87 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ DRIP, an animation by Doug Cannon
  3. DIR
  4.   SETUP
  5.     \<< FAUC ST\-> 'FAUC' STO { SETUP ST\-> } PURGE
  6.     \>>
  7.   ST\->
  8.     \<< \-> S
  9.       \<< "" 1 S SIZE
  10.         FOR N S N GET +
  11.         NEXT STR\->
  12.       \>>
  13.     \>>
  14.   DRIP
  15.     \<< 0 \-> DONE
  16.       \<< ERASE { # 0d # 0d } PVIEW
  17. PICT { # 0d # 14d } FAUC REPL
  18. PICT { # 0d # 62d } WAT REPL
  19. PICT { # 84d # 59d } "DOUG CANNON" 1 \->GROB REPL
  20.         DO 1 9
  21.           FOR N PICT { # 22d # 30d } FSH N GET REPL 2 N / WAIT
  22.             IF KEY
  23.             THEN 9 'N' STO DROP 1 'DONE' STO
  24.             END
  25.           NEXT PICT { # 22d # 30d } D REPL
  26. PICT { # 22d # 33d } D REPL
  27. PICT { # 22d # 36d } D REPL
  28. PICT { # 22d # 39d } D REPL
  29. PICT { # 22d # 42d } D REPL
  30. PICT { # 22d # 45d } D REPL
  31. PICT { # 22d # 48d } D REPL
  32. PICT { # 22d # 51d } D REPL
  33. PICT { # 19d # 54d } H1 REPL 8000 RAND * .005 BEEP
  34. PICT { # 17d # 57d } H2 REPL
  35. PICT { # 15d # 58d } H3 REPL
  36. PICT { # 14d # 59d } H4 REPL
  37. PICT { # 13d # 58d } H5 REPL
  38. PICT { # 12d # 58d } H6 REPL
  39. PICT { # 11d # 58d } H7 REPL
  40. PICT { # 10d # 59d } H8 REPL
  41. PICT { # 10d # 60d } H9 REPL
  42. PICT { # 8d # 61d } H10 REPL
  43.         UNTIL KEY DONE OR
  44.         END
  45.         IF DONE NOT
  46.         THEN DROP
  47.         END
  48.       \>>
  49.     \>>
  50.   FAUC {
  51. "GROB 27 16 00C0C00000EFF10070EFF100F1CCC000F30C0000FFFFF700FFFFFF10FFF"
  52. "FFF30FFFFFF30FFFFFF70F300CF70F1000F7070000E7000000E7000000C7000000C70" }
  53.   WAT
  54. GROB 51 2 CFFFFFFFFFF700FFFFFFFFFFFF70
  55.   D
  56. GROB 5 9 00000040E0F1F1F1E0
  57.   FSH { GROB 5 1 C0
  58. GROB 5 1 E0
  59. GROB 5 2 E1C0
  60. GROB 5 3 E1E1C0
  61. GROB 5 4 E1F1F1E0
  62. GROB 5 5 E0F1F1F1E0
  63. GROB 5 6 E0E0F1F1F1E0
  64. GROB 5 7 C0E0F1F1F1F1E0
  65. GROB 5 8 80C0C0E0F1F1F1E0 }
  66.   H1
  67. GROB 11 9 000000000000020007008F008F00BF607770
  68.   H2
  69. GROB 15 6 000008000C102E32FEB7FFF7
  70.   H3
  71. GROB 19 4 000000002000E07830FBFE70
  72.   H4
  73. GROB 21 3 E000E0F308F1E1E0F0
  74.   H5
  75. GROB 23 5 600003F00087600003000000FF3EF7
  76.   H6
  77. GROB 25 6 60000C00F0000E1060000C0000000000FF10FF10FF7CFF10
  78.   H7
  79. GROB 27 6 0000000060000030F000087060000030FFF8FF70FFFFFF70
  80.   H8
  81. GROB 29 4 00000000600000C0F00000E1FFFBFFF1
  82.   H9
  83. GROB 29 3 0000000030000081FFFFFFF1
  84.   H10
  85. GROB 31 1 00000000
  86. END
  87.